Imports System.Reflection
Imports System.Collections.Generic
Imports System.Linq
Imports System.IO
Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Content
Imports Microsoft.Xna.Framework.Graphics
Imports Microsoft.Xna.Framework.Audio
Imports Microsoft.Xna.Framework.Input.Touch
Imports Microsoft.Xna.Framework.Input



Public Class LevelApoplexy
	Public rooms As RoomApoplexy()
	Public levelName As Enumeration.LevelName = Enumeration.LevelName.dungeon_demo
	Public number As String = "0"

	Public Sub New()
		rooms = New RoomApoplexy(9) {}

		For x As Integer = 0 To rooms.Count() - 1
			rooms(x) = New RoomApoplexy()
		Next
	End Sub



	Public Sub Serialize()
		Dim ax As New System.Xml.Serialization.XmlSerializer(GetType(LevelApoplexy))
		Dim writer As TextWriter = New StreamWriter("C:\temp\LEVEL_" & levelName.ToString() & ".xml")
		ax.Serialize(writer, Me)
	End Sub

End Class
